perm filename MRIPKG.TEX[TEX,DEK] blob sn#536278 filedate 1980-09-19 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	%			*****	  MRIPKG.TEX	*****		19 July 1979
C00008 00003	\:@=cmathx
C00011 ENDMK
C⊗;
%			*****	  MRIPKG.TEX	*****		19 July 1979


\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8

\def\%{\char'45 }	% Note, the space after 45 is needed! (e.g.\%0)

\def\lft#1{#1\hfill}
\def\ctr#1{\hfill#1\hfill}
\def\rt#1{\hfill#1}

\def\rjustline#1{\hjust to size{\hskip0pt plus1000cm minus1000cm #1}}
\def\ctrline#1{\hbox to size{\hskip0pt plus1000cm minus1000cm #1\hskip0pt
	plus1000cm minus1000cm}}

\def\trace{\chpar0←} \def\jpar{\chpar1←} \def\ragged{\chpar8←} \def\widow{\chpar4←}

\def\nquad{\hskip .5em}
\def\qquad{\quad\quad}
\def\qqquad{\quad\quad\quad}
\def\nskip{\hskip .5em plus .5em minus .2em}

\def\sepstar{\nskip$\ast$\nskip}
\def\book{$\ast$}		%"book star" for mr indexes
\def\npg{\penalty1000\hfilneg}	%negative paragraph glue (ends flush right)
\def\pfill{\hskip .5em plus 5000pt\penalty 0\null\!
	\penalty 1000\hskip .5em plus 5000pt}
%		fill between end of "paragraph" text and a flush right element
\def\break{\hfil\penalty 0\null\penalty 1000\hfilneg}
\def\leadr{\penalty 1000\hskip.4em plus 2em\leaders\hbox to 4pt{.}\hfil}
%		leaders to separate author names from references

%		interword skip, nominally .33 em
\def\,{\penalty 1000\hskip .16em plus 100pt\penalty 200
	\hskip .16em plus-100pt}
%		hyphen ragged right
\def\\{\hbox{-}\penalty 1000\hskip 0pt plus 100pt\penalty 200
	\hskip 0pt plus-100pt}

%			first number reference in mr issue/cmp index
\def\fref#1{\leadr\hskip 2em\penalty 0\hskip -2em plus-100000pt\!
	\null\penalty 1000\hfil\hbox to 2em{\hfill #1}\!}
%			first reference longer than a single number (e.g.
%			a series, m-n, or a phrase, "See", etc.)
\def\ffref#1{\leadr\hskip 2em\penalty 0\hskip -2em plus-100000pt\!
	\null\penalty 1000\hfil#1\!}
%			"other" (non-first) reference
\def\.{\penalty 999\hskip 0pt plus-100pt\null\penalty 1000
	\hskip0pt plus 100pt\ \!}
%			m-entry as only entry, or author cross-reference
\def\see{\ffref{{\sl See}}\penalty1000\ \!}
%			m-entry in addition to regular entries
\def\also{\.\hbox{\sl See also}\penalty1000\ \!}
%		hyphen, no break
\def\?{\hbox{-}}
%		en-dash, no break
\def\-{\hbox{--}}
\def\ams{American Mathematical Society}

\def\ldots{{.\≥.\≥.}}
\def\cdots{{\char'401\≥\char'401\≥\char'401}}
\def\ldotss{{.\≥.\≥.\≥}}
\def\cdotss{\cdots\≥}
\def\ldotsm{{\≥.\≥.\≥.\≥}}
\def\vdots{\vbox{\baselineskip 4pt\vskip 6pt\hbox{.}\hbox{.}\hbox{.}}}

\def\eqalign#1{\vcenter{\halign{\hfill$\dispstyle{##}$⊗$\dispstyle{\null##}$\hfill
\cr#1}}}
\def\eqalignno#1{\vbox{\tabskip 0pt plus 1000pt minus 1000pt
   \halign to size{\hfill$\dispstyle{##}$\tabskip 0pt
   ⊗$\dispstyle{\null##}$\hfill\tabskip 0 pt plus 1000pt minus 1000pt
   ⊗\hfill$ ##$\tabskip 0pt\cr#1}}}
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\null{\hbox{}}
\def\twoline#1#2#3{\halign{\hbox to size{##}\cr$\quad\dispstyle{#1}$\hfill\cr
\noalign{\penalty 1000\vskip#2}\hfill$\dispstyle{#3}\quad$\cr}}

\def\chop to#1pt#2{\hbox{\lower#1pt\null\vbox{\hbox{\lower100pt\hbox{\raise100pt
\hbox{$\dispstyle{#2}$}}}\vskip-100pt}}} % pretends that #2 is #1pt deep

\def\spose#1{\hbox to 0pt{#1\hskip 0pt minus 100000pt}}
\:@=cmathx
\:a=cmr10 \:c=cmr8 \:d=cmr7 \:e=cmr6 \:f=cmr5
\:g=cmi10 \:i=cmi8 \:j=cmi7 \:k=cmi6 \:l=cmi5
\:n=cms10 \:p=cms8
\:q=cmb10 \:s=cmb8 \:t=cmr6
\:u=cmsy10 \:x=cmsy7 \:z=cmsy5
\:>=cmss18 \:?=cmti10 \:<=cms6

\def\tenpt{\baselineskip 10pt
	\def\rm{\:a} \def\sl{\:n} \def\bf{\:q} \def\it{\:g} \rm}
\def\eightpt{\baselineskip 8pt
	\def\rm{\:c} \def\bf{\:s} \rm}
\def\sixpt{\baselineskip 6pt
	\def\rm{\:e} \def\sl{\:<} \def\bf{\:t} \rm}
\def\sixragged{\sixpt\jpar 1000\ragged 1000000}

\def\L{\save9\hbox{L}\spose{\raise .36ht9\hbox{\char'31}}\box9}
\def\Cc{\spose{\char'30}C}
\def\Acirc{\save9\hbox{A}\spose{\raise .24ht9\hbox{\char'27}}\box9}
\def\udot#1{$\vtop{\baselineskip 0pt\lineskip .11em
	\halign{\ctr{##}\cr
	#1\cr.\cr}}$}
\def\dudot#1{$\vtop{\baselineskip 0pt\lineskip 1pt
	\halign{\ctr{##}\cr
	#1\cr\char'23\cr}}$}

\parindent 20pt \maxdepth 2pt
\parskip 0pt plus 1 pt \baselineskip 12pt \lineskip 1pt
\dispskip 0pt		%was 12pt plus 3pt minus 9pt
\dispaskip 0pt		%was 0pt plus 3pt
\dispbskip 0pt		%was 7pt plus 3pt minus 4pt

\mathrm adf \mathit gjl \mathsy uxz \mathex @

\setcount0 1			%page number counter

\gdef\prevmark{garbage}
\gdef\newpg {T}
\def\bbmark#1#2{\mark{
	\if T\newpg{#1}
	\else{#2}}}